home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 22 / macformat_22.iso / Shareware / HyperCard / get-set-mod-date-15 / Get⁄SetModDate 1.5 / Get_SetModDate 1.5 / card_2941.txt < prev    next >
Encoding:
Text File  |  1996-09-05  |  2.8 KB  |  83 lines
  1. -- card: 2941 from stack: in.5
  2. -- bmap block id: 2158
  3. -- flags: 0000
  4. -- background id: 2672
  5. -- name: 
  6.  
  7.  
  8. -- part 3 (field)
  9. -- low flags: 05
  10. -- high flags: 2007
  11. -- rect: left=1 top=82 right=309 bottom=511
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 10 (button)
  23. -- low flags: 00
  24. -- high flags: A002
  25. -- rect: left=2 top=54 right=76 bottom=114
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: GetModDate
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   answer file "Choose a file to examine:"
  37.   if it = "" then exit mouseup
  38.   put GetModDate(it) into modDate
  39.   convert modDate to long date and time
  40.   answer modDate
  41. end mouseUp
  42.  
  43.  
  44. -- part 11 (button)
  45. -- low flags: 00
  46. -- high flags: A002
  47. -- rect: left=116 top=54 right=76 bottom=228
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: SetModDate
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   put the seconds into newModDate
  59.   put newmoddate into moddate
  60.   convert moddate to long date and time
  61.   answer file "Choose a file to set Modification Date:"
  62.   if it = "" then exit mouseup
  63.   setModDate it,newModDate
  64.   answer "Modification date set to" && moddate & "."
  65. end mouseUp
  66.  
  67.  
  68. -- part contents for card part 3
  69. ----- text -----
  70. GetModDate takes one parameter, the pathname of the file to examine. It returns the time in seconds which can be converted to a date. SetModDate takes two parameters, the pathname of the file to work on, and the datetime in seconds.
  71.  
  72. Click on and/or examine the scripts of the buttons above to see how they work!
  73.  
  74. This external is free for purely personal use. A license fee of $10.00 is required if you use this external in any ‚Äúin-house‚Äù corporate, shareware or freeware products. The license fee for unlimited commercial use in a SINGLE ‚Äúfor sale‚Äù product is $25.00. The license fee for unlimited commercial use with MULTIPLE products is $100.00.
  75.  
  76. Permission is hereby granted to all groups who distribute demo software, either for profit (such as EduCorp) or not for profit (such as a Macintosh Users Group), to include this file in their collection. My goal is to get as much exposure for my products as possible, and I believe that these groups offer an invaluable service to shareware publishers like myself.
  77.  
  78. If you have questions or comments we can be reached through the following:
  79.  
  80. Iverson Software Co.          507.625.7355
  81. 522 Record St.                j5rson@prairie.lakes.com
  82. Mankato MN  56001-2546        http://prairie.lakes.com/~j5rson/
  83.